home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 3-Demos / Third Party Demos / DTMedia / Aldus Persuasion / INTERACTIVE / INTERACTIVE.rsrc / TEXT_1178.txt < prev    next >
Text File  |  1988-11-03  |  207b  |  12 lines
  1. ¬´#
  2. if thechar = backspace then skip 9
  3. if thechar = return then skip 3
  4. if length (cast(a13)) > 17 then skip 4
  5. exit
  6. goto 170
  7. exit
  8. set &Z = 0
  9. goto  158
  10. exit
  11. set &Z = 1
  12. if length (cast(a13)) < 19 then 155ÀáG